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Display stream package 



A library package is now available which provides a capability 
for display streams with considerably more flexibility than the current 
operating system streams. Additional features include multiple fonts, 
repositioning to any bit position in the current line (on, under proper 
circumstances, any line), selective erasing and polarity inversion, and 
better utilization of the available bitmap space. 



The package consists of two files, DSTREAM and DHANX. In 
addition, the file DISP.D provides useful parameter and structure 
declarations, in particular the parameters 1DCB and 
below. DSTREAM is written in Bcpl and occupies about 
DHANX is written in assembly language and occupies about 
The package does not require any routines other than 
operating system. 

1. Creating a display stream 
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reateDstream( v , nl , ds, options) 
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he minimum space for a display stream is lDCB*nl+f h*nwrds , 
is the height of the standard system font and nwrds is v.! 3 if 
on-zero, otherwise 38. This, however, only provides enough 
r a single line. A'space allocation of lDCB*nl+f h*nwrds*nl 
s enough bitmap for all nl lines. The display stream package 
the available space and then, if necessary, deletes lines 
from the top to make room for new data. 



LT>C&* L { 



Options, if supplied, controls the action of the stream under 
various exceptional conditions. The various options have mnemonic 
names (defined in DISP.D) and may be added together. Here is the list 
of options: 

DScompact.l ef t : allows the bitmap space required for a line to be 
reduced when scrolling by eliminating multiples of 16 initial blank bit 
positions and replacing them with the display controller's "tab" 
feature. However, a line in which this has occurred may not be 
overwritten later (with SetLinePos, see below). 

DScompactr igh t : allows tiie bitmap space for a line to be reduced 
when scrolling by eliminating multiples of 16 blank bit positions on 
the right. Overwriting is allowed up to the beginning of the blank 
space, i.e. you cannot make a line longer by overwriting if you select 
th is opt ion . 

DSstopr ight : causes characters to be discarded when a line 
becomes full, rather than scrolling onto a new line. 

DSstopbottom: causes characters to be discarded in preference to 
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losing data from the screen. This applies when either all nl lines are 
occupied, or when the allocated bitmap space becomes full. 
If options is not supplied, it defaults to 
DScompactlef t+DScompactright. 



2. Current-line operations 

GetFont(ds) 
returns the current font of ds. 

SetFont(ds, pfont) 

changes the font of the display stream ds. Pfont is a pointer to word 

2 of a font, which is compatible with GetFont. Characters which have 

been written into the stream already are not affected; future 
characters will be written in the new font. If the font is higher than 

the font initially specified, writing characters may cause unexpected 

alteration of lines other than the line being written into. 



GetBitPos(ds) 
returns the bit position in 
normally initialized to 8. 



the current line. The bit position is 



SetBitPos(ds , pos) 
sets the bit position in the current line to pos and returns true, if 
pos is not too large; otherwise, returns false. Pos must be less than 
606 (the display width) minus the width of the widest character in the 
current font. Resetting the bit position does not affect the bitmap; 
characters displayed at overlapping positions will be "or"ed in the 
obvious manner. 

.GetLinePos(ds) 
returns the line number of the current line. Unlike the present 
operating system display streams, which always write into the bottom 
line and scroll up, the display streams provided by this package start 
with the top line and only scroll when they reach the bottom. 

EraseBi ts( ds , nbits, flag) 
changes bits in ds starting from the current position. Flag=0, or flag 
omitted, means set bits to (same as background); flag=l means set 
bits to 1 (opposite from background); flag=-l means invert bits from 
their current state. If nbits is positive, the affected bits are those 
in positions pos through pos+nbits-1, where pos is GetBi tPos(ds ) ; if 
nbits is negative, the affected positions are pos+nbits through pos-1. 
In either case, the final position of the stream is pos+nbits. 

Here are two examples of the use of EraseBits. If the last 
character written on ds was ch, EraseP i ts( ds , -CharWidth( ch , 
GetFon t(ds) ) ) will erase it and back up the current position (see below 
for CharWidth). If a word of width ww has just been written on ds, 
EraseBi ts(ds , -ww, -1) will change it to white-on-black. 



3. Inter-line operations 



GetLinePos(ds) 
returns the current line position within ds. 
stream is numbered 0. 



The top line in the 



SetLinePos(ds , pos) 
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sets the current line position in ds to pos. If the line has not yet 
been written into, or if it has zero width, or if it is indented as the 
result of compacting on the left, SetLinePos has no effect and returns 
false; otherwise, SetLinePos returns true. Note that if you want to 
get back to where you were before, you must remember where that was 
(using GetLinePos and GetBitPos). 
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package writes characters using a very fast 
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The scrolling procedure is also called with arguments (ds, -1) 
whenever a contemplated scrolling operation would cause information to 
disappear from the screen, either because nl 1 ijies are already present 
or because the bitmap space is full (unless the DSstopbottom option was 
chosen, in which case the procedure is not called and the action is the 
same as if it had returned false). If the procedure returns true, the 
scrolling operation proceeds normally. If the procedure returns false, 
the scrolling does not take place, and the character which triggered 
the operation is discarded. 



The user may supply a different scrolling procedure 
filling it into the field ds 
DS . scrol 1 . 



simply by 



5. Miscellaneous 



Ge tLmarg( ds ) 
returns the left margin position of ds. The left margin is initialized 
to 8 (about 1/10" from the left edge of the screen). 

SetLmarg(ds, pos) 
sets the left margin of ds to pos. 

GetRmarg( ds ) 
returns the right margin position of ds. The right margin is 
initialized to the right edge of the screen: this is the value of the 
di splay width parameter in DISP.D. 

SetRmarg(ds, pos) 
sets the right margin of ds to pos. 
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ResetLine(ds) 
is equivalent to EraseBi ts(ds , GetLmarg(ds)-GetBi tPos(ds) ) , i.e. it 
erases the current line and resets to the left margin. 

CharWidth(char , pfont) 
returns the width of the character char in the font pfont. 
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// New display streams 

// last edited 31 aug 75 17:00 



get "disp.d" 



external // 


entries 




[ CharWidth 


//. (char, font) -> width 


ResetLine 


// (ds) 




CreateDstream //'(v, i 


il . ds[ , options]) - 


DPUT // 


(ds, char), 


in DHANX.A 


GetFont // 


(ds) -> font 




SetFont // 


(ds, font) 




GetBitPos 


// (ds) 


-> pos 


SetBitPos 


// (ds, 


pos) 


GetLmarg 


// (ds) 


-> pos 


SetLmarg 


// (ds, 


pos) 


GetRmarg 


// (ds) 


-> pos 


SetRmarg 


// (ds. 


pos) 


GetLinePos 


// (ds) 


-> Ipos 


SetLinePos 


// (ds. 


Ipos) -> true/false 


Scroll // 


(ds[, char]) 




EraseBi ts 
] 


// (ds, 


nbits[, flag]) 


external // 


O.S. 




[ BMOVE; BSTORE 




CREATES: PUTS 




DSP 






SWAT 

] 

manifest 










[ leftmargin 


= 8 




r ightmargin = displaywii 
1 


jth 



> ds 



let. CharWidth(char , font) = valof 
[ let w, cw = 0, ni 1 

[ cw = font! ( font! charnchar) 
if (cw & 1) ne then break 
w, char = w+16, cw rshift 1 
] repeat 
result is w + cw rshift 1 
] 

and ResetLine( ds ) be 

[ SetBUPos(ds, ds»DS.rmarg) 

EraseBi ts( ds , ds>>DS . lmarg-ds>>DS . rmarg) 
] 

and CreateDs tream( v , nl , ds, options; numargs na) = valof 
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// 
// 
// 
[ 



(v!3+l))&(-2) 



v is the same parameter as for the O.S. CREATES call 

nl is the number of lines desired 

ds is storage for the stream (IDS words) 

v!0 = (v!0+l)&(not 1) 

v!l = (v!l)&(not 1) 

BM0VE(DSP, ds, 1DS-1) 

ds>>DS.ssa, ds>>DS.esa = v!0, v!l 

ds>>DS.pfont = (v!2 eq 0? DSP>>DS . pf ont , v!2) 

ds>>DS.nwrds = (v!3 eq 0? ( displ aywidth+31 )/16, 

let ssa, esa = ds>>DS.ssa, ds>>DS.esa 

let wpsl = ds>>DS.nwrds 

let ht = (ds>>DS.pfont!(-2)+l) rshift 1 

let bsz = wpsl*ht*2 ^^~— ___— "" — ' " / 

if esa-ssa Is nl*!DCB+bsz then SWAT( "Dstream too small") 

ds>>DS.puts = DPUT 

ris>>DS. opens = linkds 

ds>>DS. closes = unlinkds 

ds>>DS . resets = cleards 

ds>>DS . scrol 1 = Scroll 

let edcb = ssa+nl*lDCB 

let Idcb = edcb-lDCB 

ds>>DS.fdcb, ds>>DS.ldcb = ssa, ldcb 

ds>>DS.blksz = bsz 

let bda = edcb 

ds>>DS.fmp = esa-bsz^/ 

ds>>DS.bda = bda ' 

for p = ssa by IDCB to ldcb do 

p>>DCB.next, p>>DCB . height = p+lDCB, ht 

ldcb>>DCB.next = 

ds>>DS . lmarg , ds>>DS.rmarg = leftmargin, rightmargin 

ds>>DS .options = ((na ge 4) & (options ne -1)? options, DScompactlef t+DSc 

**ompactr ight) 

SetFont(ds, ds>>DS . pf ont) 

c 1 e a r d s ( d s ) 

resultis ds 



] 



and cleards(ds) be 

[ let fdcb, fmp = ds>>DS. fdcb, ds>>DS.fmp 
for deb = fdcb by IDCB to ds»DS.ldcb do 
[ dcb>>DCB.parwd = 
dcb>>DCB.bi tmap = fmp 

] 
ds>>DS.cdcb = fdcb 
ds>>DS.tdcb = fdcb 
fdcb>>DCB. width = ds>>DS.nwrds 
ds>>DS.mwp = ds>>DS.bda 
clearmap(ds) 



nd clearmap(ds) be 

ds>>DS.cdcb>>DCB. indwidth = ds>>DS.nwrds 
BSTORE(ds»DS.fmp, 0, ds>>DS . blksz-1) 
SetBitPos(ds, ds>>DS. lmarg ) 



nd 1 inkds ( ds ) be 

f prevdcb(ds>>DS . f deb) eq then 
ds>>DS. ldcb>>DCB.next = 
prevdcb(0)>>DCB.next = ds>>DS. fdcb 
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and unl inkds(ds) be 

[ let pdcb = prevdcb(ds>>DS.fdcb) 

if pdcb ne then pdcb>>DCB. next = ds>>DS. ldcb>>DCB . next 
] 

and prevdcb(dcb) = valof 

[ let org = DCBchainHead-(of f set DCB. next/16) 
while org>>DCB. next ne deb do 
[ if org eq then resultis 
org = org>>UCB. next 

] 
resultis org 

] 

and GetFont(ds) = ds>>DS.pfont 

and SetFont(ds, pfont) = valof 

[ let ht = (pfont! (-2)+l) rshift 1 

ds>>DS. pfont = pfont 

SetRmarg(ds, ds>>DS . rmarg) 

resultis ht le ds>>DS. cdcb>>DCB. height 
] 

and GetBitPos(ds) = ds>>DS. bsof ar 

and SetBi tPos( ds , pos) = valof 
[ ds>>DS . bsof ar = pos 

ds>>DS.dba = (not pos) & #17 

let edeb = ds>>DS.cdcb 

ds>>DS.bwrds = cdcb>>DCB. width, 

ds>>DS.wad = cdcb>>DCB . bi tmap-cdcb>>DCB . width+pos rshift 4 

resultis pos le ds>>DS.bstop 
] 

and GetLmarg(ds) = ds>>DS.1marg 

and SetLmarg( ds , pos) be 
[ ds>>DS. lmarg = pos 
SetBi tPos(ds , pos) 
] 

and GetRmarg(ds) = ds>>DS . rmarg 

and SetRmarg( ds , pos) be 
[ ds>>DS . rmarg = pos 

ds>>DS.bstop = pos-(ds»DS.pfont!(-l) & #77777) 
] 

and GeLLinePos(ds) = ( ds>>DS . cdcb-ds>>DS . f dcb)/lDCB 

and SetLinePos(ds, lpos) = valof 

[ let deb = ds>>DS.fdcbHpos*lDCB 

if deb gr ds>>DS.ldcb resultis false 

if dcb>>DCB. indentation ne resultis false 

if dcb>>DCB. width eq resultis false 

ds>>DS.cdcb = deb 

ds>>DS.bwrds = dcb>>DCB .width 

SetBUPos(ds. ds>>DS . bsof ar ) 

resultis true 

] 
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and Scrol1(ds, char; numargs na) = valof 



[ 



if na ge 2 then switchon char into 
[ case S*N: 
endcase 
case #11: // tab 
[ let sp8 = CharWidth(S*S, ds>>DS.pfont)*8 

if not SetBitPos(ds, (ds>>DS. bsof ar/sp8+l)*sp8) then PUTS(ds, $*S) 
resultis char 

] ^ 

case 0: // null ~--->^ / /7 F \ 

resultis char ^ s *^--^____ <^_i=s>-<_ /,2£ ^ ^^^-^y--^^ 
case -1: // about to lose data 

resultis true 
default: 

test char Is #40 

ifso [ PUTS(ds, St); PUTS(ds, char+#100) ] 
ifnot 
[ let rpos = CharWidth(char, ds>>DS. pf on t)+ds>>DS . bsof ar 
test rpos gr ds>>DS . rmarg 

ifnot [ ds>>DS.bstop = rpos; PUTS(ds, char) ] 
ifso if (ds>>DS .options&DSstopright) eq endcase 

] 

resultis char 

> ] 
unless compact(ds) resultis char 

let cdcb, ldcb = ds>>DS.cdcb, ds>>DS.ldcb 

test cdcb eq ldcb 

i f not 

[ cdcb = cdcb»DCB.next 

ds>>DS.cdcb = cdcb 

] 
ifso 

[ let deb = ds»DS.fdcb 

if deb eq ds>>DS.tdcb then unless f reebi tmap(ds ) resultis char 
while deb ne ldcb do 
[ BMOVE(dcb+(lDCB+l), dcb+1 , 1DCB-2) // assumes next in word 
deb = dcb+lDCB 

] 
ds>>DS.tdcb = ds>>DS.tdcb-lDCB 
cdcb>>DCB. indwidth = ds>>DS.nwrds 
cdcb>>DCB. bitmap = ds>>DS.fmp 

] 
test edeb>>DCB .b itmap eq ds>>DS.fmp 
ifso clearmap(ds) 
ifnot ResetL ine( ds ) 
if char ne $*N then PUTS(ds, char) 
resultis char 
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and compact(ds) = valof 

[ let deb = ds>>DS.cdcb 

let ht = dcb>>DCB.height*2 

let onw = dcb>>DCB. width 

let nw = ((ds>>DS.options&DScompactright) ne 0? (ds>>DS. bsofar+15) rshift 

** 4, onw) 
let old = dcb>>DCB. bitmap // = ds>>DS.fmp 
let d = 

if (ds>>DS.options&DScompactlef t) ne then 
[ while d ne nw do 

[ let p = old+ds>>DS.blksz+d 
for i = 1 to ht do 
[ p = p-onw 

if @p ne then goto used 

] 

d = d+1 

] 

used: ] 

unless (nw eq onw) & (d eq 1) do 

nw. old = (nw-d+l)&(-2). old+d 
let p = getmapspace( ds , nw*ht) 
Lest p eq 
ifso // not enough room 

dcb»DCB.indw.idth = 
ifnot test p eq -1 
ifso // don't scroll 

resultis false 
i f not 
[ let new = p 

if nw ne then for i = 1 to ht do 
[ BM0VE(old, new, nw-1) 

old, new = old+onw, new+nw 

] 

dc.b»DC3. width = nw 
dcb>>DCB. indentation = d 

] 

dcb>>DCB. bitmap = p 
resultis true 
] 

and getmapspace(ds , nw) = valof 
[ let wp = nil 
[ wp = ds>>DS.mwp 

let rp = ds>>DS.tdcb>>DCB. bitmap 
test wp gr rp 
ifso 
[ if ds>>DS . fmp-wp gr nw break 
ds>>DS.mwp = ds>>DS.bda 
if rp eq ds>>DS.bda then unless f reebi tmap(ds ) resultis -1 

] 

ifnot 
[ if rp-wp gr nw break 

unless f reebi tmap( ds ) resultis -1 

if rp eq ds>>DS.fmp resultis // not enough room 

] 
] repeat 

ds>>DS.mwp = wp+nw 
resultis wp 
] 
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and f reebitmap(ds) = valof 

[ if (ds>>DS .options&DSstopbottom) ne resultis false 

unless (ds>>DS. scrol 1 )(ds , -1) resultis false 

let deb = ds>>DS.tdcb 

ds>>DS.tdcb = dcb+lDCB 

dcb>>DCB.indwidth = 

resultis true 
] 

and EraseBits(ds , nbits, flag; numargs na) = valof 
[ if na Is 3 then flag = 

let pos = GetBi tPos(ds)+nbits 
test nbits Is 
if so 
[ SetBitPos(ds , pos) 

EraseBi ts(ds , -nbits, flag) 
SetBitPos(ds, pos) 

3 

if not 
[ let edeb = ds>>DS.cdcb 

let wpsl, ht = cdcb>>DCB. width, cdcb>>DCB . he ight*2 
while nbits gr do 
[ let map = ds>>DS.wad 
let dba = ds>>DS.dba 
let nb = (nbits gr dba? dba+1, nbits) 
let mask = MaskTabldba - MaskTab ! (dba-nb) 
for i = 1 to ht do 
[ map = map+wpsl 

@map = (flag eq 0? @map & not mask, 

flag Is 0? Qmap xor mask, @map % mask) 

] 
SetBitPos(ds, ds>>DS . bsofar+nb) 
nbits = nbits-nb 
] 

] 

resultis pos 
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Alto display handler 

Modified for stream-dependent scrolling 

last edited 10-APR-75 22:00 



TITL DHANX 
ENT DPUT 



.DALC SKL=ADCZ# 0,0, SNC 

.DALC SKLE = SUBZ# 0,0, SNC 

.DALC SKE = SUB# 0,0, SZR 

.DALC SKNE=SUB# 0,0, SNR 

.DALC SKGE=AUCZ# 0,0, SZC 

.DALC SKG=SUBZ# 0,0, SZC 



; STRUCTURE OF STREAM 



PFONT=0 

NWRDS=20. 

DBA=21. 

WAD=24. 

BSOFAR=23. 

BSTOP=22. 

SCROLL=25. 

SAVAC2=26. 



POINTER TO FONT 

WORDS PER SCAN LINE 

DESTINATION BIT ADDRESS 

DESTINATION WORD ADDRESS 

BITS USED SO FAR IN THIS LINE 

BIT POSITION AT WHICH TO STOP WRITING 

SCROLLING ROUTINE 

TEMP FOR AC2 DURING CONVERT 



; STRUCTURE OF TEMPS IN FRAME 
LINK=1 
ST = 2 
TEMP =3 



DPUT(ST. CHAR) 
Writes a character on a display stream. 
All control characters are passed to the scroller 



DPUT 



DPUTC 



DSCR 



DRET 



PUT0 



.SREL 






DPUTC 






.NREL 






STA 3 


LINK, 2 




STA 


ST, 2 




MOV 


3 


;USE AC3 TO ADDRESS STREAM 


LDA 


C377 


;MASK CHARACTER TO 8 BITS 


AND 


i 




LDA 


C40 


;CHECK FOR CONTROL CHARACTERS 


SKL 1 







JMP PUT0 


;NOT ONE 


LDA 


SCROLL, 3 




STA 


TEMP, 2 




MOV 3. 







LDA 3 


LINK, 2 




JMP @TEMP,2 


;GO DO SCROLL INSTEAD 


LDA 3 


LINK, 2 




JMP 1 


3 


;SKIP RETURN 


STA 1 


TEMP, 2 
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;TEST IF THE CHARACTER WILL FIT 
;OF ANY CHARACTER IN THE TONT 



BSTOP = NWRDS * 16 - THE MAX. WIDTH 



LDA BSOFAR, 3 

LDA 1 BSTOP, 3 

SKG 1 

JMP SCR1 

LDA 1 TEMP, 2 

STA 2 SAVAC2,3 

MOV 3 2 

PUT1: LDA WAD, 2 ;WORD ADDRESS IN THIS LINE 

LDA 3 PFONT.2 ;POINTER TO FONT 

ADD 1 3 ;POINTS TO CHARACTER SLOT 
CONVERT NWRDS ; BINGO! 

JMP PUT2 -.CHARACTER HAS AN EXTENSION 





LDA 


BSOFAR, 


,2 




ADD 


3 






STA 


BSOFAR, 


,2 




SUBZ 3 1 SZC 






JMP 


PUT3 






ISZ 


WAD , 2 






LDA 


C20 






ADD 


1 




PUT3: 


STA 


1 DBA, 2 






LDA 


2 SAVAC2, 


,2 




JMP 


DRET 




SCR1: 


LDA 


1 TEMP, 2 






JMP 


DSCR 




PUT2: 


ISZ 


WAD, 2 






LDA 


BSOFAR, 


,2 




LDA 


1 C20 






ADD 


1 






STA 


BSOFAR, 


,2 




MOV 


3 1 






JMP 


PUT1 




C377: 


37 7 






C20: 


20 






C40: 


40 







;NO EXTENSION, AC3=WIDTH, AC1=DBA AND 17B 



; DIDN'T OVERFLOW A WORD BOUNDARY 
; INCREMENT WORD ADDRESS 

;UPDATE DBA, WHICH IS NOW NEGATIVE 



;PICK UP CHARACTER 
;GO SCROLL 

; HANDLE EXTENSION. AC3 HAS PSEUDO-CHARACTER CODE 



.END 
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// Definitions for display utilities 
// last edited 30 aug 75 16:10 



manifest 

[ DCBchainHead = #420 

MouseXLoc = #424 

MouseYLoc = #425 

CursorXLoc = #426 

CursorYLoc = #427 

CursorMap = #431 

CursorMapSize = #20 

MaskTab = #460 

ButtonsLoc = #177030 

KeysLoc = #177034 

] 

manifest 

[ displayheight = 808 

displ ay width = 606 

cursorheight = 16 

cursorwidth = 16 

] 

structure BUTTONS: // hardware button data 
[ blank bit 8 



] 



keyset bit 5 // complemented 

mouse bit 3 // complemented, button order is 4-1-2 



structure DCB: // display control block 
[ next word 

[ resolution bit 1 
background bit 1 
[ indentation bit 6 

width bit 8 
] = indwidth bit 14 
] = parwd word 
bitmap word 
height word 

] 

manifest 1DCB = (size DCB)/16 

structure DS : // display stream (modified - see DHANX.A) 
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// numbered entries are used by assembly code 

// starred entries are modified 

[ pfont word // 0, pointer to font 

opens word // OPENS 

closes word // CLOSES 

gets word // GETS 

puts word // PUTS 

resets word // RESETS 

putback word // PUTBACK 

error word // ERRORS 

endofs word // ENDOFS 

stateofs word // STATEOFS 

lmarg word // * left margin 

rmarg word // * night margin 

options word // * option flags 

nwrds word // * words per full scan line 

blank word 

ssa word // 15, start of storage area 

esa word // 16, end of storage area 

fdcb word // 17, first DCB 

ldcb word // 18, last DCB 

blksz word // 19, block size for text line 

bwrds word // *20. words per scan line 

dba word // 21, ■destination bit address 

bstop word // *22. bit where to stop writing 

bsofar word // 23, bits so far in this line 

wad word // 24, dest. word address 

scroll word // *25, scrolling routine 

savac2 word // *26, temp for AC2 

cdcb word // * current DCB 

fmp word // * pointer to full text line of bitmap 

bda word // * beginning of bitmap data area 

tdcb word // * top DCB. with data 

mwp word // * bitmap writer pointer 

] 

manifest IDS = (size DS)/16 

manifest // DS options 

[ DScompactlef t =1 // eliminate leading blank words 
DScompactright =2 // eliminate trailing blank words 

DSstopright = 4 // discard rather than scroll on line overflow 
DSstopbottom =8 // discard rather than lose screen data 

] 



